home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Microsoft Plateform / Visual Basic 5.0 / Msvb50.ace / msvb50 / MSVB50 / VB / SAMPLES / VISDATA / ERRORS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-16  |  2.9 KB  |  100 lines
  1. VERSION 5.00
  2. Begin VB.Form frmErrors 
  3.    Caption         =   "Errors"
  4.    ClientHeight    =   2640
  5.    ClientLeft      =   3210
  6.    ClientTop       =   2385
  7.    ClientWidth     =   6630
  8.    Height          =   3105
  9.    HelpContextID   =   2016081
  10.    Icon            =   "ERRORS.frx":0000
  11.    Left            =   3150
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   2640
  16.    ScaleWidth      =   6630
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   1980
  19.    Width           =   6750
  20.    Begin VB.ListBox lstErrors 
  21.       Height          =   2040
  22.       Left            =   105
  23.       TabIndex        =   3
  24.       Top             =   75
  25.       Width           =   6435
  26.    End
  27.    Begin VB.PictureBox picButtons 
  28.       Align           =   2  'Align Bottom
  29.       Appearance      =   0  'Flat
  30.       BorderStyle     =   0  'None
  31.       ForeColor       =   &H80000008&
  32.       Height          =   400
  33.       Left            =   0
  34.       ScaleHeight     =   405
  35.       ScaleWidth      =   6630
  36.       TabIndex        =   0
  37.       Top             =   2235
  38.       Width           =   6630
  39.       Begin VB.CommandButton cmdClose 
  40.          Cancel          =   -1  'True
  41.          Caption         =   "&Close"
  42.          Height          =   330
  43.          Left            =   2040
  44.          MaskColor       =   &H00000000&
  45.          TabIndex        =   2
  46.          Top             =   45
  47.          Width           =   1695
  48.       End
  49.       Begin VB.CommandButton cmdRefresh 
  50.          Caption         =   "&Refresh"
  51.          Height          =   330
  52.          Left            =   240
  53.          MaskColor       =   &H00000000&
  54.          TabIndex        =   1
  55.          Top             =   40
  56.          Width           =   1695
  57.       End
  58.    End
  59. Attribute VB_Name = "frmErrors"
  60. Attribute VB_Base = "0{6F48C49D-C9E4-11CF-9ED2-00AA00574745}"
  61. Attribute VB_GlobalNameSpace = False
  62. Attribute VB_Creatable = False
  63. Attribute VB_TemplateDerived = False
  64. Attribute VB_PredeclaredId = True
  65. Attribute VB_Exposed = False
  66. Attribute VB_Customizable = False
  67. Option Explicit
  68. '>>>>>>>>>>>>>>>>>>>>>>>>
  69. Const FORMCAPTION = "Errors"
  70. Const BUTTON1 = "&Refresh"
  71. Const BUTTON2 = "&Close"
  72. '>>>>>>>>>>>>>>>>>>>>>>>>
  73. Private Sub cmdClose_Click()
  74.   Unload Me
  75. End Sub
  76. Private Sub cmdRefresh_Click()
  77.   RefreshErrors
  78. End Sub
  79. Private Sub Form_Load()
  80.   On Error GoTo LErr
  81.   Me.Caption = FORMCAPTION
  82.   cmdRefresh.Caption = BUTTON1
  83.   cmdClose.Caption = BUTTON2
  84.   Me.Height = 3105
  85.   Me.Width = 6750
  86.   Me.Top = 1000
  87.   Me.Left = 1000
  88.   Screen.MousePointer = vbDefault
  89.   Exit Sub
  90. LErr:
  91.   ShowError
  92.   Unload Me
  93. End Sub
  94. Private Sub Form_Resize()
  95.   On Error Resume Next
  96.   If Me.WindowState = 1 Then Exit Sub
  97.   lstErrors.Width = Me.ScaleWidth - (lstErrors.Left * 2)
  98.   lstErrors.Height = Me.Height - 970
  99. End Sub
  100.